home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 1 / Gold Medal Software Volume 1 (Gold Medal) (1994).iso / prog / tpwprog7.arj / GRAPHDLL.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-07-02  |  764 b   |  34 lines
  1. { graphdll.pas -- Sample DLL with two graphics routines }
  2.  
  3. library GraphDLL;
  4.  
  5. uses WinTypes, WinProcs;
  6.  
  7. {- Draw circle bounded by rectangle at X, Y, X + W, Y + W }
  8. procedure Circle(DC: HDC; X, Y, W: Integer); export;
  9. begin
  10.   Ellipse(DC, X, Y, X + W, Y + W)
  11. end;
  12.  
  13. {- Draw rectangle with coordinates X, Y, X + W, Y + W }
  14. procedure Square(DC: HDC; X, Y, W: Integer); export;
  15. begin
  16.   Rectangle(DC, X, Y, X + W, Y + W)
  17. end;
  18.  
  19. {- List exported routines }
  20.  
  21. exports
  22.  
  23.   Circle   index 1,
  24.   Square   index 2;
  25.  
  26. begin
  27. end.
  28.  
  29.  
  30. {--------------------------------------------------------------
  31.   Copyright (c) 1991 by Tom Swan. All rights reserved.
  32.   Revision 1.00    Date: 5/25/1991
  33. ---------------------------------------------------------------}
  34.